home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / albgene4.dir / 00065_Script_65 < prev    next >
Text File  |  1983-01-30  |  360b  |  16 lines
  1. on curfinmetti
  2.   global cursprite
  3.   repeat with nr=1 to 48
  4.     set cur to item nr of cursprite
  5.     set a to offset("_", cur)
  6.     if a > 0 then put "," into char a of  cur
  7.     if cur = "-1" then
  8.       set the cursor of sprite nr to integer(cur)
  9.     else
  10.       set the cursor of sprite nr to value(cur)
  11.     end if
  12.  
  13.   end repeat
  14.   updatestage
  15. end
  16.